Carousel/CAROUSEL.cdr/mactosh/hc/deluxadd.sit/Delux Address Stack/background_2632.txt

Text File | 1987-11-19 | 8KB | 373 lines

-- background: 2632 from stack: in
-- bmap block id: 3294
-- flags: 4000
-- background id: 0
-- name: Addrees By Derek
----- HyperTalk script -----
on openStack
  push recent card
  hide message box
end openStack

on closeField
  put the short date into field "Date"
end closeField




-- part 2 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=103 top=64 right=192 bottom=432
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Name & Address


-- part 3 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=131 top=208 right=258 bottom=434
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Phone Number


-- part 4 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=338 top=286 right=304 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date


-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=417 top=279 right=304 bottom=448
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=275 top=279 right=304 bottom=302
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=245 top=279 right=304 bottom=272
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=307 top=34 right=60 bottom=334
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Do
----- HyperTalk script -----
on mouseUp
  go to card "First Do" of "Datebook"
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=382 top=34 right=58 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Calendar
----- HyperTalk script -----
on mouseUp
  get the seconds
  convert it to dateItems
  put ((item 1 of it) - 1987) *2 into whichSix
  if item 2 of it > 6 then add 1 to whichSix
  visual effect zoom open
  if whichSix < 1 then go card 1 of stack "Datebook"
  else if whichSix > 5 then go card 5 of stack "Datebook"
  else
    go to card whichSix of stack "Datebook"
    send "bracketWeek" && the seconds to this card
  end if
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=343 top=34 right=59 bottom=371
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Datebook
----- HyperTalk script -----
on mouseUp
  set lockScreen to true
  go stack "Datebook"
  goWeekly the seconds
  set lockScreen to false
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=35 top=192 right=230 bottom=76
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  show all cards
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=98 top=204 right=222 bottom=137
-- title width / last selected line: 0
-- icon id / first selected line: 10610 / 10610
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dial Phone
----- HyperTalk script -----
on mouseUp
  get line 1 of field "Phone Number"
  if it is empty then get the message
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=412 top=30 right=64 bottom=451
-- title width / last selected line: 0
-- icon id / first selected line: 11045 / 11045
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go "Home"
end mouseUp



-- part 30 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=36 top=240 right=279 bottom=76
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if the name of this stack contains "stack ideas"
  then
  show card field 1  -- explain why not sort here
else
  answer "Sort all cards of this stack according to:" with "First Name" or "Last Name" or "Cancel"
  if it is "First Name"
  then sort by first word of first line of field "Name and Address"
else if it is "Last Name"
then sort by last word of first line of field "Name and Address"
end if
end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=98 top=223 right=241 bottom=136
-- title width / last selected line: 0
-- icon id / first selected line: 10610 / 10610
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dial 2
----- HyperTalk script -----

on mouseUp
  get line 2 of field "Phone Number"
  if it is empty then get the message
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if
end mouseUp




-- part 32 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=98 top=242 right=260 bottom=137
-- title width / last selected line: 0
-- icon id / first selected line: 10610 / 10610
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dial 3
----- HyperTalk script -----

on mouseUp
  get line 3 of field "Phone Number"
  if it is empty then get the message
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if
end mouseUp




-- part 33 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=15 top=98 right=145 bottom=75
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find ....
----- HyperTalk script -----
on mouseUp
  Ask "Find what item ?"
  put it into Finding
  put false into Q
  repeat until Q
    find Finding
    repeat with x= 1 to 500
    end repeat
    answer "This one ?" with "Yes" or "No"
    if it is "Yes" then put true into Q
  end repeat

end mouseUp